RosettaCodeData/Task/Unicode-variable-names/Visual-Basic/unicode-variable-names.vb

Sub Main()
    Dim Δ As Integer
    Δ=1
    Δ=Δ+1
    Debug.Print Δ
End Sub