Gruppe
Allgemein
Problem
Wie kann ich ein einzelnes Zeichen aus der Eingabe in eine InputBox auslesen?
StandardModule: basMain
Sub EingabeBox()
Dim sInput As String
sInput = InputBox("Zeichenfolge:")
If sInput = "" Then Exit Sub
sInput = Mid(sInput, 3, 1)
MsgBox sInput
End Sub