VB problem, file system control

Private Sub Dir1_Change ()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change ()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click ()
Dim STR As String * 3
ChDrive Drive1.Drive
ChDir Dir1.Path

STR = UCase (Right (File1.FileName, 3))
Select Case STR
Case “BMP”
Image1.Picture = LoadPicture (File1.FileName)
Case “DOC”
MsgBox File1.FileName
Shell “C:\ Program Files \ microsoft Office \ Office11 \ Winword.exe “, File1.FileName, vbNormalFocus
Case” exe “
Shell File1.FileName, vbNormalFocus
End Select
End Sub

Private Sub Form_Load ()
File1.Pattern = “*.bmp; *.exe; *.doc”
End Sub
I would like to know where there is a problem ….?? thank