Increment alphanumeric values automatically

How can we increment alphanumeric values in VB.NET 2008? EG I want Emlpoyee ID as A-1, A-2, so on to load automatically on very new entry. I am using SQL 2008 as backend. Thanks