Contact: aviboots(AT)netvision.net.il
41,389 questions
53,935 answers
573 users
Imports System Public Module Module1 Public Sub Main() Dim s AS String = "abcd" Dim tmp As String = s(0) Mid(s, 1, 1) = s(3) Mid(s, 4, 1) = tmp Console.WriteLine(s) End Sub End Module ' run: ' dbca