Works for me..

Code:
Private Sub Command1_Click()
  MsgBox Left$(Text1, 3)
End Sub