Ciao,
Puoi usare la funzione Controls.Find, gli passi il nome del control e ti ritorna un array di elementi che corrispondono (nel tuo caso ci sarà solo un elemento):
For i As Integer = 0 To 2
Dim c As Control = Me.Controls.Find("Tb" & i.ToString())(0)
' c.Text = ...
End For
Luca