Sub Eingabe(DerString As String)
  Dim sFesterString As String * 40
  sFesterString = DerString
  '...
End Sub
 
'Mit einem Typ würde es höchstens so gehen.
 
Private Type NewStringTyp
  Wert1  As String * 40
End Type
 
Sub Eingabe(DerString As NewStringTyp)
  Debug.Print DerString.Wert1
  '...
End Sub