AlphaNumeric Increment for a particular series not visible in Textbox if combobox value selected

[NimishK]

In column B ther are Numbers from 2nd row to Last row. starting from 0001
in between in column B thereare numbers starting with "Z-" and these also respectively starting from 0001 but if i select in combobox "ABC"
I would like to auto increment the number with String "Z-0002 in the textbox when i select combox value as "ABC"

Private Sub UserForm_Initialize()
  With worksheets("Sheet1")
       .Columns("B").NumberFormat = "0000"
  End with
End Sub

Public Sub Auto_Increment_No()

Dim Var2 as Variant
Dim alpNum as String
If comboName.Text = "ABC" Then
          alpNum = "Z-" & Format(Var2 + 1, "0000")
          TextNos.Text = alpNum 
[B][COLOR=#ff0000]  '''''Here TextNos.Text showing Blank No increament Value at all[/COLOR][/B]
   Else
          TextNos.Text =  Format(Var2 + 1, "0000")
[B][COLOR=#ff0000]   ''''' Here it shows perfectly without alpNum[/COLOR][/B]
End Sub

Thanks
NimishK

 

[NimishK]

Yes I got it, Thanks

Public Sub Auto_Increment_No()

Dim Var2 as Variant
If comboName.Text = "ABC" Then
          TextNos.Text = Left(Var2, 2) & Format(Val(Right(Var2, 4)) + 1, "0000") 
     Else
          TextNos.Text =  Format(Var2 + 1, "0000")
End if
End Sub