How I can short this code? VBA

How i can short this code? I want make this code with "If" make shorter in loop. I tried do something like this Me.Controls("x" & t) = 0 , but its syntax error. Idk what i can do. Please help. sorry for my english.

x = CStr(Int(Rnd() * 16))
Dim x1 As Byte = 0
...
Dim x30 As Byte = 0

For t = 0 To 15
If x = t And x1 = 0 Then
...
End If
If x = t And x2 = 0 Then
...
End If
...
If x = t And x30 = 0 Then
...
End If