Private Sub cmdActivate_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdActivate.Click
        gsCheckedBS = ""
        gsCheckedBS &= chkbs(chkbs01.checked)
        gsCheckedBS &= chkbs(chkbs02.checked)
        gsCheckedBS &= chkbs(chkbs03.checked)
        gsCheckedBS &= chkbs(chkbs04.checked)
        ...
 
 
end sub
 
 
private Function chkBS(value as boolean,optional TrueValue as _
  string="9",optional FalseValue as string="8") as string
	Select case value
		case True
			return TrueValue
		case False
			return FalseValue
		case else
			return ""
	end select
end function