Private Function FindTab(ByVal name As String) As TabPage
        For Each t As TabPage In Me.TabControl1.TabPages
            If t.Name.Equals(name) Then
                Return t
            End If
        Next
        Return Nothing
    End Function

Dim tp As TabPage = FindTab("MyTab1")
If Not tb Is Nothing Then
'// ...