Dim a As String = "yasemin" MsgBox(Microsoft.VisualBasic.Left(a, 3) + Microsoft.VisualBasic.Right(a, 2))