Hola
No se si es lo q buscas, pero me parece q te puede servir, simplemente agrega "ToolStripButton1.Click" al Handles. Fijate en el final de la primera linea siguiente:
Private Sub TxtCodigo_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtCodigo.LostFocus, ToolStripButton1.Click
If Existe_Registro() Then
TSSLabel.Text = " EL REGISTRO: " & TxtCodigo.Text & ", YA EXISTE, ASIGNE OTRO CODIGO "
Beep()
TxtCodigo.Focus()
End Sub
espero t sirva