Jag söker en funktion som kollar om en bokstav är liten eller stor. Ska loopa igenom en sträng och bara retunera dom som är stora.

KAnske inte är så snyggt. Men det fungerar. Även för unicode.
<code>
Dim Index
Dim strText
Dim strChar
Dim strUCase
Dim strResult

For Index = 1 To Len(strText)
strChar = Mid(strText, Index, 1)
strUCase = UCase(strChar)
If strUCase <> LCase(strChar) Then
If strChar = strUCase Then
strResult = strResult & strChar
End If
End If
Next
</code>

Tack för hjälpen, jag skrev ihop den här själv. Det är för att plocka ut stora bokstäver från namn.

C-G Gustavsson = CGG
Tomas Lundgren = TL



function checkCase(strToCheck)

Dim i
Dim strOutput
Dim strCase
Dim strClean

strOutput = ""

for i=1 to len(strToCheck)
strCase=mid(strToCheck,i,1)
if ucase(strCase)=strCase then
strOutput=strOutput & strCase
end if
next

strOutput=replace(strOutput,"-","")
strOutput=replace(strOutput," ","")


checkCase=strOutput

end function

Du kommer få promblem med tecken som inte är bokstäver. T.ex sifror och skiljetecken.