llamado de una funcion

[flashtkd]

Hola como puedo aplicar el llamado de una funcion, usando texfobx

Public Function CadenaConexion() As String
Dim csb As New SqlConnectionStringBuilder
csb.DataSource = "(local)\SQLEXPRESS"
csb.InitialCatalog = "prueba_SQL"
csb.IntegratedSecurity = True

Return csb.ConnectionString
End Function


Public Sub Eliminar(ByVal id As Integer)
Dim sCon As String = CadenaConexion()
Dim sel As String = "DELETE FROM " & NombreTabla & " WHERE ID = @ID"

Using con As New SqlConnection(sCon)
Dim cmd As New SqlCommand(sel, con)
cmd.Parameters.AddWithValue("@ID", id)

con.Open()

cmd.ExecuteNonQuery()

con.Close()
End Using
End Sub

Esta bien o mal hacer este llamado desde un texdbox ?

textbox1 = call eliminar ()