 <p>You can try the below, using <a href="https://msdn.microsoft.com/en-us/library/tabh47cf%28v=vs.110%29.aspx" rel="nofollow">String.Split</a> which has been implemented specifically for these issues in .net. </p> <pre><code>Private Sub btnEnter_Click(sender As Object, e As EventArgs) Handles btnEnter.Click Dim Street As String, City As String, State As String, Zip As String Dim data() as string data = txtAddress.Text.Split("/"c) Street = data(0) City = data(1) State = data(2) Zip = data(3) TextBox1.Text = Street &amp; vbCrLf &amp; City &amp; " " &amp; State End Sub </code></pre>