try
strWk = format(strWk + 1,"00")