제발좀 도와주세요.ㅠㅠ

텍스트에 년도 입력시 커맨드에 띠가 나오게 소스를 작성해보앗는데요
무슨문제인지 도저히 모르겠네요.ㅠㅠ
Private Sub Command1_Click()Dim A As Long
A = 1900
Dim B As Long
B = 0
Dim C As Long
Dim D As Long
D = A + BDo While Text1.Text = D
Command1.Caption = 쥐띠
For A = 1900 To 1900
Next
B = B + 12Loop문제점좀 찾아서 고쳐주세요