RosettaCodeData/Task/Rot-13/Visual-Basic/rot-13-2.vb

Sub Main()
  Debug.Assert ROT13("abc") = "nop"
  Debug.Assert ROT13("nop") = "abc"
End Sub