Function ConvertNero2VB(ByVal strDate As String) As Date
 
Dim tYear As String
Dim tMonth As String
Dim tDay As String
Dim tHour As String
Dim tMinute As String
 
tYear = Left$(strDate, 1)
tMonth = Mid$(strDate, 2, 2)
tDay = Mid$(strDate, 4, 2)
tHour = Mid$(strDate, 6, 2)
tMinute = Right$(strDate, 2)
ConvertNero2VB = CDate(tDay + "." + tMonth + "." + tYear + " " + tHour + ":" + _
  tMinute)
 
End Function