Function Txt10Slh2(ByVal Txt As String) As String
Txt10Slh2 = Left$(Txt, 10) & "/" & Mid$(Txt, 11, 2)
End Function
Function Txt10Slach2Slach2(ByVal Txt As String) As String
Txt10Slach2Slach2 = Left$(Txt, 10) & "/" & Mid$(Txt, 11, 2) & "/" & Mid$(Txt, 13, 4)
End Function