Visual Basic.NET - No me guarda en un textbox

Hola a todos:

Tengo el siguiente codigo:

Private Sub ComprobarNumsocio()
Dim a As Integer
If (Me.oDataSet.Tables("socios").Rows.Count) = 0 Then
txtNumsocio.Enabled = True
txtNumsocio.Text = "1"
MsgBox(Me.txtNumsocio.Text)
Else
Try
Dim oMaxNumsocio As New SqlConnection
oMaxNumsocio.ConnectionString = "Server=(local);Database=video;Trusted_Connection=True;"
Dim oComandMaxSocio As New SqlCommand("Select MAX(numsocio) as numsocio from socios", oMaxNumsocio)
Dim oDataMaxSocio As SqlDataReader
oMaxNumsocio.Open()
oDataMaxSocio = oComandMaxSocio.ExecuteReader
oDataMaxSocio.Read()
Me.txtNumsocio.Enabled = True
a = oDataMaxSocio("numsocio") + 1
txtNumsocio.Text = a
txtNumsocio.ToString()
MsgBox(a)
oMaxNumsocio.Close()
oDataMaxSocio.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
End Sub

Lo que me pasa es que en un principio me muestra el valor de la variable en el textbox, pero cuando obtiene el foco el valor desaparece.