Dim betterOS As String
betterOS = "VMS" & ControlChars.CrLf & "+ 1" & _
ControlChars.CrLf & "====" & ControlChars.CrLf & _
Convert.ToChar(Convert.ToByte("V"c) + 1) & _
Convert.ToChar(Convert.ToByte("M"c) + 1) & _
Convert.ToChar(Convert.ToByte("S"c) + 1)
MessageBox.Show(betterOS, "What is better?", MessageBoxButtons.OK, _
MessageBoxIcon.Information)