Hola de nuevo

Mira pues la base de datos tienes que estar en excel con unos diez trabajadores. Mira este es un pedazo de lo que ya llevo avanzado no se si creas que puede estar mejor o no.
Pero todavía me falta lo que te especifique antes.
Private Sub CommandButton1_Click()
If (TextBox1 = 100) Then
TextBox2 = Range("b2")
TextBox3 = Range("c2")
TextBox4 = Range("d2")
TextBox5 = Range("e2")
Else
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
If (TextBox1 = 101) Then
TextBox2 = Range("b3")
TextBox3 = Range("c3")
TextBox4 = Range("d3")
TextBox5 = Range("e3")
Else
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
If (TextBox1 = 102) Then
TextBox2 = Range("b4")
TextBox3 = Range("c4")
TextBox4 = Range("d4")
TextBox5 = Range("e4")
Else
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
If (TextBox1 = 103) Then
TextBox2 = Range("b5")
TextBox3 = Range("c5")
TextBox4 = Range("d5")
TextBox5 = Range("e5")
Else
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
If (TextBox1 = 104) Then
TextBox2 = Range("b6")
TextBox3 = Range("c6")
TextBox4 = Range("d6")
TextBox5 = Range("e6")
Else
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
If (TextBox1 = 105) Then
TextBox2 = Range("b7")
TextBox3 = Range("c7")
TextBox4 = Range("d7")
TextBox5 = Range("e7")
Else
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
If (TextBox1 = 106) Then
TextBox2 = Range("b8")
TextBox3 = Range("c8")
TextBox4 = Range("d8")
TextBox5 = Range("e8")
Else
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
If (TextBox1 = 107) Then
TextBox2 = Range("b9")
TextBox3 = Range("c9")
TextBox4 = Range("d9")
TextBox5 = Range("e9")
Else
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
If (TextBox1 = 108) Then
TextBox2 = Range("b10")
TextBox3 = Range("c10")
TextBox4 = Range("d10")
TextBox5 = Range("e10")
Else
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
If (TextBox1 = 109) Then
TextBox2 = Range("b11")
TextBox3 = Range("c11")
TextBox4 = Range("d11")
TextBox5 = Range("e11")
Else
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
If (TextBox1 = 110) Then
TextBox2 = Range("b12")
TextBox3 = Range("c12")
TextBox4 = Range("d12")
TextBox5 = Range("e12")
Else
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub
Private Sub Label1_Click()
End Sub
Private Sub TextBox1_Change()
End Sub
Te lo agradeceré mucho y claro que te voy a puntuar de muy buena forma. Dime para cuando lo tendrías por favor
gRacias