Convert String to date via Code

[nO_OnE]

I thought I could use Mid() but I don't know how to handle single vs double digits like
0820 (5/3) or 0820 (10/11)

The simple/quick answer to that would be to determine the length, which would also have to assume that the time is always 4 digits...

Dim date1 as string
Dim date2 as string
date1 = "0820 (10/11)"
date2 = "0820 (5/11)"

Len(date1) 'this would return 12
Len(date1) 'this would return 11

so by determining the length you can determine which portion you need to extract.