Visual Basic - como validar el mes en una fecha

hola, ojala alguien me pueda ayudar.

Mi problema es que quiero validar el mes de una fecha, por ejemplo, en un textbox tecleo la fecha con este formato 09/11/01, ya validé el dia, con la funcion left y el año con la funcion right, pero no se como validar el mes, intente hacerlo con la funcion mid, pero no obtuve buenos resultados.
si alguien me pudiera ayudar se lo agradecere.

Puede ser :

mid (fecha,4,2) >0 and mid(fecha,4,2)<13

No obstante, por si te sirve te transcribo código con el que puedes formar una sub a la que llamar (Call) en cada fecha . Te detectará los errores de fechas hasta en los años bisiestos. :

Dim fecha2 as date
fecha.Text = Format(fecha, "##-##-##")
On Error GoTo mil
fecha2 = fecha.Text
If Left(fecha, 2) <> Left(fecha2, 2) Then GoTo mil
If Right(fecha, 2) <> Right(Date, 2) Then GoTo milcien
Exit Sub
mil:
MsgBox "Error de tecleo.-"
fecha.SetFocus
Exit Sub
milcien:
If MsgBox(" Es correcto el a±o expresado.?", 68) = 7 Then
fecha.SetFocus
Exit Sub
End If