Buchstaben an bestimmter Position ausgeben

Hi zusammen

Ich habe folgendes Problem
Ich will, dass beispielsweise bei dem Wort Auto der Buchstabe der an 3. position steht ausgegeben wird.
ich krieg das mit dem folgenden Programm nich hin, keine Ahnung warum.

Private Sub Befehl0_Click()
Dim d As Integer
Dim s As String
Wort = Me!eingabe
GoSamstagLotto


For d = 1 To Ziehung.Count

s = s & CStr(Ziehung(d)) &
Next

MsgBox s

End Sub


Private Sub GoSamstagLotto()
Dim n As Long
Dim m As Long
Dim d As Integer

Wort = Me!eingabe
i = Len(Wort)

Set Ziehung = Nothing
Set Ziehung = New Collection
Randomize Timer
On Error Resume Next
n = 1
Do
m = Int(Rnd * i) + 1
Ziehung.Add m, CStr(m)
If Err = 0 Then n = n + 1 Else Err.Clear
Loop While n < i + 1

MsgBox Ziehung(1) & Ziehung(2) & Ziehung(3) & Ziehung(4) & Ziehung(5)
End Sub

Schau mal in der Doku nach der MID()-Funktion: