Dynamically changing Volume in VB6.0

[flyfish29]

Hello! Wondering if I could get some feedback on dynamically changing the volume on my TV. I do not want to resort to writing long IF, THEN and ELSE statement code. I would rather write short code and concatenate the strings. I just don't get it because the string appears to be correctly sent out in my test text sample. I even tried a timer, but I'm left scratching my head. Shouldn't the MSComm1.output be sending the string correctly formatted to "VOL05 " & Chr$(13)? I am able to control my TV using other controls, but I've exhausted myself on this one . Here is what I have right now:


'TV expects to receive the full 8 byte string.....EX. "VOL09 " & Chr$(13) for
'a volume of 9. Note the txtTes.Text = was just for visualization of the 'string being sent to the HDTV

Private Sub VScroll1_Change()
Dim vollevel As String 'Dimension Volume Level as String
Const conidentifier As Integer = 0 'Dimension Constant 0 needed for < 10

If VScroll1.Value < 10 Then
Text1.Text = VScroll1.Value
vollevel = Val(Text1.Text)
vollevel = Val(VScroll1.Value)
MSComm1.Output = "VOL & Chr$(conidentifier) & Chr$(vollevel) " & Chr$(13) ' this string should be sent via RS232
txtTes.Text = """VOL" & conidentifier & vollevel & " """ 'text just for test




ElseIf VScroll1.Value = 100 Then
Text1.Text = VScroll1.Value
vollevel = Val(Text1.Text)
vollevel = Val(VScroll1.Value)
MSComm1.Output = "VOL & Chr$(vollevel) " & Chr$(13)
txtTes.Text = """VOL" & vollevel & " """


Else
Text1.Text = VScroll1.Value
vollevel = Val(Text1.Text)
vollevel = Val(VScroll1.Value)
MSComm1.Output = "VOL & Chr$(vollevel) " & Chr$(13)
txtTes.Text = """VOL" & vollevel & " """

End If
End Sub

[flyfish29]

Nevermind, I just wrote a hundred if elseif statements inside a timer with 1 sec interval.