Visual Basic - Tablas ya existentes

hola, tengo lo siguiente:

Private Sub cmdcrear_Click()
If txtnombre.Text = "" Then
MsgBox ("Debe escribir un nombre para la tabla"), vbCritical, "Error"
Else
Set Base_de_datos = OpenDatabase(App.Path & " \semillas del saber.mdb ")

Set Tabla = Base_de_datos.CreateTableDef("Estudiantes" + txtnombre.Text)

Set Campo = Tabla.CreateField("Codigo", dbInteger)
Tabla.Fields.Append Campo

Set Campo = Tabla.CreateField("Primer Apellido", dbText, 100)
Tabla.Fields.Append Campo

Set Campo = Tabla.CreateField("Segundo Apellido", dbText, 100)
Tabla.Fields.Append Campo

Set Campo = Tabla.CreateField("Primer Nombre", dbText, 100)
Tabla.Fields.Append Campo

Set Campo = Tabla.CreateField("Segundo Nombre", dbText, 100)
Tabla.Fields.Append Campo

Base_de_datos.TableDefs.Append Tabla

mnunueva.Enabled = True
panelcrear.Visible = False
Data1.RecordSource = "Estudiantes" + txtnombre.Text
Data1.Refresh

End If

End Sub

como puedo hacer para que me aparezca un mensaje que yo quiera diciendo si la tabla ya existe y que coloque otro nombre.
gracias

Puedes revisar en la colección de tablas existentes si ya existe la que quieres:

With Base_de_Datos
Debug.Print .TableDefs.Count

For Each Tabla In .TableDefs
Debug.Print " " & Tabla.Name
Next
End With