Private Sub Grid1_RowLoaded(ByVal nRow As Long, Item As sevDataGrid2.ListItem)
    Dim sText   As String
    With Item
        sText = fStart.Grid1.Recordset.Fields("Erstell-D").Value
        .CellText(1) = JMTtoTMJ(sText)   ....

Public Function JMTtoTMJ(ByVal JMT As String) As String
    JMTtoTMJ = Mid$(JMT, 7, 2) & "." & Mid$(JMT, 3, 2) & "." & Mid$(JMT, 1, 4)
End Function

Private Sub Grid1_CellClick(ByVal nRow As Long, ByVal nCol As Long, ByVal _
  Button As Integer, ByVal Shift As Integer)
Text1.Text = fStart.Grid1.Text(nRow, 1)  ....