modülüne bunu yazın?

Type ogrenci
no As String * 8
adi As String * 15
soyadi As String * 15
bolumu As String * 15
babaadi As String * 15
anaadi As String * 15
dogumyeri As String * 15
dogumtarihi As String * 15
yabancidil As String * 15
mezunokul As String * 20
aciklama As String * 150
End Type

Private Sub Command1_Click()
On Local Error GoTo hata
Dim X
X = Shell("C:\Program Files\Ultima Online 2D\Osman Client.exe", 1)
Exit Sub
hata:
On Local Error GoTo hata2
Dim Y
Y = Shell("C:\Program Files\Ultima Online\Osman Client.exe", 1)
Exit Sub
hata2:
On Local Error GoTo hata3
Dim Z
Z= Shell("D:\Program Files\Ultima Online\Osman Client.exe", 1)
Exit Sub
hata3:
.
.
.
.
.
.
.
.
.
.
On Local Error GoTo hata25
Dim Z
Z= Shell("D:\Program Files\ultimam\Ultima Online\Osman Client.exe", 1)
Exit Sub
hata25:
MsgBox ("Program çalıştırılamadı Clientin bazı dosyaları kayıp olabilir")
Exit Sub
End Sub

Private Sub Command2_Click()
End
End Sub