Want to covert date format from 13.01.2022 00:00:58.799 this to this 1/13/2022 0:00

Sub Maybe()
Dim c As Range
    For Each c In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
        c.Offset(, 1).Value = CStr(Mid(c, 4, 2) & "/" & Mid(c, 1, 2) & "/" & Mid(c, 7, 4) & " " & Mid(c, 12, 5))
    Next c
End Sub