Private Sub mnuconvDeUs_Click()
Dim i As Long
Dim a As String
 
 'datei speichern button = true
    mnudatasave.Enabled = True
    mnudataopen.Enabled = False
 
'leeren der lisbox lstrechts und lstausgabe
lstrechts.Clear
lstausgabe.Clear
 
'zähler der von 1 anfängt un bei listcount -1 aufhört
For i = 0 To lsteingabe.ListCount - 1
 
    'wenn in lsteingabe.list(i) ein : vorkommt wird ersetzt und ein format 
    ' eingestellt
    If InStr(1, lsteingabe.List(i), ":") <> 0 Then
 
        'fügt ein ITEM in die listbox "lstrechts", dabei wird der text aus 
        ' lsteingabe ab hinten gerechnet
        'um 17 zeichen abgeschnitten
        lstrechts.AddItem Format((Right(lsteingabe.List(i), 17)), "m\/dd\/yyyy" & _
          "h:nn:ss AM/PM")
 
        'variable a ist gleich dem text in lsteingabe.list(i)
        a = lsteingabe.List(i)
        lstausgabe.List(i) = Replace(a, (Right(lsteingabe.List(i), 17)), _
          lstrechts.List(i), 1)
    Else
        lstrechts.AddItem ""
        lstausgabe.AddItem lsteingabe.List(i)
    End If
Next i