Dim booleans() As Boolean = Array As Boolean (MissesField.Text <> Null, ProctTB.Checked, False, SDQToggle.Checked, ...
For i = 0 To booleans.Length - 1
Dim v As String
if booleans(i) Then v = "Y" Else v = "N"
ScoringTable(CurrentShooter, (CurrentStage * 10) + i + 1) = v
Next
'deal with MSFld which is special