EXCEL VBAコミュのはじめまして！

先日、入られて頂きました。
ＶＢＡを最近知って勉強している超初心者です。
これからも宜しくお願いします。

早速ですが、ユーザーフォームを使用して入力画面のＶＢＡコードを作成して
いますが解らなくて困ってます。

流れは・・・
（１）TextBox1を入力してCommandButton1（検索）を押すとSheet１から４のＡ列
を検索してＢ列にあるデーターで一致したものをLabel3に表示
（２）TextBox3、TextBox4、TextBox5、TextBox6、TextBox7、TextBox8をお入力して検索で表示したLabel3とSheet１から４のＣ列にある数値をTextBox2に入力してある横にデーターを書き込み
（３）TextBox3、TextBox4、TextBox5、TextBox6が未入力の時はエラー表示

TextBox3はＤ列、TextBox4はＥ列、TextBox5はＦ列、TextBox6はＧ列、TextBox7はＨ列、TextBox8はＩ列になります。

ちなみに（１）のコードは出来ており下記になります。
Private Sub CommandButton1_Click()
Dim myData, i, j
Dim ws As Worksheet
Dim rf As Range
Application.ScreenUpdating = False
myData = Me.TextBox1.Text
If myData = "" Then
MsgBox "建物CDが未入力です。" & vbCrLf & "入力してください。"
Exit Sub
End If
For Each ws In Worksheets

With ws

Set rf = .Range("A:A").Find(What:=TextBox1.Text, _
LookIn:=xlValues, LookAt:=xlWhole)

If Not rf Is Nothing Then Exit For

End With

Next

If Not rf Is Nothing Then
Label3.Caption = rf.Offset(, 1).Value
Else
MsgBox "該当する建物CDがありません。", vbExclamation
End If

Set rf = Nothing

End Sub
になります。

かなり長くなりましたが、ご指導の程、宜しくお願い致します。