Función para extraer los 3 primeros caracteres de un string

Paco
16 de Enero del 2004
Hola, necesito una función que dado una cadena de caracteres me devuelva los tres primeros. Alguien me puede ayudar???
Un saludo y gracias

Terion
16 de Enero del 2004
Private Sub Command1_Click()
Dim a As String
a = Left(Text1.Text, 3)
MsgBox (a)
End Sub
suerte