Private Sub cmdSplitten5_Click()
   Text5.Text = FormatString(Text4)
End Sub
 
Private Function FormatString(tb As TextBox) As String
   Dim t1, t2 As Variant
   Dim i As Long
   t1 = Split(tb.Text, vbCrLf)
   For i = 0 To UBound(t1)
      t2 = Split(t1(i), " ")
      FormatString = FormatString & Format(t2(0), "yyyy-mm-dd#") & t2(1)
      If i < UBound(t1) Then FormatString = FormatString & vbCrLf
   Next i
End Function