Option Explicit

Function GetKBaseArticleUrl(Number)

	GetKBaseArticleUrl = ""

	Number = UCase(Trim(Number))
	
	If Left(Number, 1) <> "Q" Then Number = "Q" & Number

	Dim NumberLen
	NumberLen = Len(Number)
	If (NumberLen <> 6) And (NumberLen <> 7) Then Exit Function
	
	Const Digits = "0123456789"
	Dim I
	For I = 2 To NumberLen
		If InStr(Digits, Mid(Number, I, 1)) = 0 Then Exit Function
	Next
	
	GetKBaseArticleUrl = "http://support.microsoft.com/support/kb/articles/" & _
		Left(Number, NumberLen - 3) & "/" & _
		Mid(Number, NumberLen - 2, 1) & "/" & _
		Right(Number, 2) & ".asp"
	
End Function