Sub test()
Dim St As String
Dim PlaceSlash As Long
Dim MaDateChaine As String
St = "StartDate:26/03/2009 22:15:00"
PlaceSlash = InStr(1, St, "/")
MaDateChaine = Mid(St, PlaceSlash - 2, 10)
St = "StartDate: 27/03/2009"
PlaceSlash = InStr(1, St, "/")
MaDateChaine = Mid(St, PlaceSlash - 2, 10)
End Sub