Sub changetextcolor(textboxname() As TextBox)
     textboxname(1).BackColor = RGB(255, 0, 0)
    textboxname(2).BackColor = RGB(0, 255, 0)
End Sub
Private Sub Command1_Click()
    Dim txtbxs(2) As TextBox
    txtbxs(0) = Me.Text1
    txtbxs(1) = Me.Text2
    Call changetextcolor(txtbxs())
End Sub