Visual Basic - problemas con tablas

hola, tengo lo siguiente para crear nu na nueva tabla en una base de datos:

Private Sub cmdcrear_Click()

Dim TExistente As Boolean
Dim tabla As TableDef


If txt_nueva_tabla_estudiantes.Text = "" Then
MsgBox ("Debe escribir un nombre para la tabla"), vbCritical, "Error"
Else
If contenedor_estudiantes.TabCaption(0) = "" Then
Me.crear_tabla_1_estudiantes (txt_nueva_tabla_estudiantes.Text)

Else
For Each tabla In Data1.Database.TableDefs
If tabla.Name = txt_nueva_tabla_estudiantes.Text Then
TExistente = True
End If
Next

If TExistente = True Then
MsgBox ("La tabla ya existe."), vbCritical, "Error"
txt_nueva_tabla_estudiantes.SelStart = 0
txt_nueva_tabla_estudiantes.SelLength = Len(txt_nueva_tabla_estudiantes.Text)
txt_nueva_tabla_estudiantes.SetFocus
Else
Me.crear_tabla_2_estudiantes (txt_nueva_tabla_estudiantes)
End If
End If
End If

End Sub

lo que pasa es que si existe la tabla "Pedidos" con la p en mayusculas, en el codigo que puse arriba no me reconoce "pedidos" con la p en minuscula como la tabla ya existente "Pedidos", y esto me ocasiona un error, como podria solucionarlo.
gracias

Creo que si pones
Ucase(nombretabla)=ucase(text)
tienes resuelto el problema