Gruppe
Allgemein
Bereich
Zeichenfolge
Thema
Einzelnes Zeichen aus einer InputBox-Eingabe auslesen
Problem
Wie kann ich ein einzelnes Zeichen aus der Eingabe in eine InputBox auslesen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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