Thema: Einzelnes Zeichen aus einer InputBox-Eingabe 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

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Zeichenfolge