Как создать подобную прогу так чтобы при вводе разных чисел, изменялся размер зеленой полосы - VB

Option Explicit
Dim d
 
Private Sub Form_Load()
   d = Frame1.Width - 15
End Sub
 
 
Private Sub Command1_Click()
   Dim i As Byte, j As Byte, max
   
   For i = 0 To 3
      If Not good(Text1(i)) Then Exit Sub
      If Val(Text1(i).Text) > max Then max = Val(Text1(i).Text)
   Next i
   
   For i = 0 To 3
      Text2(i).Width = Val(Text1(i).Text) / max * d
   Next i
End Sub
 
Function good(tb As TextBox) As Boolean
   Dim i As Byte
   
   good = True
   
   If Val(tb.Text) < 0 Then MsgBox ">=0!!!": good = False
   If Not IsNumeric(tb.Text) Then MsgBox "Г*Г*Г*!!!": good = False
   
   If Not good Then
      tb.SetFocus
      For i = 0 To 3
         Text2(i).Width = 0
      Next i
   End If
End Function