Convert Date From SAP
Private Function ConvertDateFromSAP(ByVal strDate As String) As String
Return Mid(strDate, 5, 2) & "/" & Right(strDate, 2) & "/" & Left(strDate, 4)
End Function