Dim split5 As String() = ans.Split(";")
Dim split6 As String() = split5(0).Split("/")
     If bnr = "LMO" Then
        If split5(0) = split6(0) Then
           split6(0) = split5(0) * 6
        End If
        Dim lmo As String = 0
        lmo = CType(xlBlatt.Cells, Excel.Range)(curRow, 6).value
        If lmo = Nothing Then
           CType(xlBlatt.Cells, Excel.Range)(curRow, 6).value = split6(0)
        Else
            Dim lmo2 As Integer = 0
            lmo2 = split6(0)
            lmo += lmo2
            CType(xlBlatt.Cells, Excel.Range)(curRow, 6).value = lmo + "/60"
        End If
     End if