如果第一行为空，则跳过文件的VBA If语句

If condition Then
    ' 执行代码块1
ElseIf condition2 Then
    ' 执行代码块2
Else
    ' 执行代码块3
End If

Sub CheckFirstLine()
    Dim filePath As String
    Dim fileContent As String
    
    ' 设置文件路径
    filePath = "C:\path\to\file.txt"
    
    ' 打开文件并读取第一行内容
    Open filePath For Input As #1
    Line Input #1, fileContent
    Close #1
    
    ' 判断第一行内容是否为空
    If Trim(fileContent) = "" Then
        ' 第一行为空，跳过后续的VBA If语句
        Exit Sub
    End If
    
    ' 后续的VBA If语句
    If condition Then
        ' 执行代码块1
    ElseIf condition2 Then
        ' 执行代码块2
    Else
        ' 执行代码块3
    End If
End Sub