String Variable auf größer Null /Leer (B#16#20) vergleichen

[Tommylik]

Hallo,

Ich habe folgenden Code der Ordner erstellt aus einer Stringvariable die von der SPS übergeben wird.
Funktioniert sehr gut.

Public Sub Ordner_erstellen()
'Diese Modul erstellt Ordner


Dim strNr As String
Dim strText As String
Dim strPfad As String
Dim strOrdner As String
Dim oFSO As Object


strNr = thisProject.Variables.Item("RV_OrdnerName").Value
strText = Format(CStr(strNr), "000000000000")




'Exportpfad
strPfad = "D:\S7_Export\AppData"     ' Pfad einstellen
strOrdner = strText
   
Set oFSO = CreateObject("Scripting.FileSystemObject")
        
        If oFSO.FolderExists(strPfad) Then
            If Not oFSO.FolderExists(strPfad & "\" & strOrdner) Then
                oFSO.CreateFolder (strPfad & "\" & strOrdner)
                                
            End If
            
        Else
        'Code
        thisProject.Variables.Item("RV_NoFolder").Value = 1
        End If

        
Set oFSO = Nothing
 
End Sub

Ich möchte den folgen Codesschnipsel so mit einbringen das er dafür sorgen soll das wenn die "Variable leer" ist, die Sub beendet wird.

If thisProject.Variables.Item("RV_OrdnerName").Value > 0 Then
  Exit Sub
  End If

Wenn die Variable leer ist steht in HEX B#16#20 drin. Als Zeichen steht folgendes drin ( ' ' )
Mit Value > 0 funktioniert es nicht. Hat einer von Euch eine Idee wie es richtig ist.
Wie stellt man diesen HEX Wert oder das Zeichen in VBA dar??

Vielen Dank im voraus.

Mit freundlichen Grüßen

Tommylik

[scheweeric]

16#20 ist nicht leer, sondern ein Leerzeichen. Da "RV_OrdnerName" ein nummerischer String zu sein scheint, kann man es so machen:

strNr = Cstr(thisProject.Variables.Item("RV_OrdnerName").Value)
If not IsNumeric(strNr ) Then Exit Sub
strText = Format(strNr, "000000000000")