Visual Basic - ayuda!!!

hola a todos esperon que me puedan ayudar
necesito un codigo para un registro donde los codigos y hay dos iguales le aumento en una la numeracion ejm
ed001
ed002
algo asi es lo que quiero y ademas almacene todo para cuando vuelva a iniciar empiece donde se quedo y no de uno.
espero que me puedan ayudar.

GENERA UN CONSECUTIVO ALFANUMERIOCO ESPERO QUE TE SIRVA BYE

Function SumaUno(strTexto As String) As String
Dim i As Long, strLetra As String, strNumero As String
'guardo en letra el primer carácter
strLetra = Left(strTexto, 1)
'y en numero el resto
strNumero = Right(strTexto, Len(strTexto) - 1)
'si llegué a todo nueves comienzo en uno y sumo uno a la letra
i = Len(strNumero)
If strNumero = String(i, "9") Then
strNumero = String(i - 1, "0") & "1"
strLetra = Chr(Asc(strLetra) + 1)
Else
strNumero = Format(CLng(strNumero) + 1, String(i, "0"))
End If
SumaUno = strLetra & strNumero
End Function