Dim iCheckSumTotal As Integer
Dim sCheckSumTotal As String
Dim sCheckSumResponse As String
Dim i As Integer
Dim iCommandLength As Integer
iCommandLength = command.Length
i = 0
While i < iCommandLength
iCheckSumTotal = iCheckSumTotal + Convert.ToInt32(Convert.ToChar(command.Substring(i, 1)))
i += 1
End While