Mensage box valor somativo

[Michaelsiernandes]

dim  valor as integer

valor = 0

MessageBox.Show("Current Time ON :" + valor)

If valor > 0 Then
    valor = Val(valor) + 1
End If

If Val(valor) = 0 Then
    Timer1.Interval = 1000
End If

Estava querendo fazer uma MessageBox somar o valor de uma variável infinitamente consegui isso com uma label mas quando substitui pela variável não consegui alguém sabe resolver e aonde eu errei?