Private Sub Refresh_Textbox_Text(ByVal TextBox As TextBox) Dim TempText As String = TextBox.Text TextBox.Clear() TextBox.Text = TempText End Sub