帮忙修改一段代码

Question

根据以下代码中的红色字体要求,帮忙添加一句代码,谢谢.
Sub DLEvtModule()
    Dim ExVBE As Object
    Set ExVBE = GetObject(, "Excel.Application")
    With ExVBE.VBE.ActiveCodePane.CodeModule   ' 套用目前模组
         rCount = .CountOfLines
     For i = rCount To 1 Step -1
         Lentemp = Len(.Lines(i, 1)) '判断是否为空行
         If Lentemp = 0 Then
         
'  这里还要添加一句判断,如何整行代码中只包含空格(不管有多少个空格),也删除该行     
               .DeleteLines i
         End If
    Next i
    End With
End Sub

Answer 1

纠正一个错别字,应该是: 这里还要添加一句判断,如果整行代码中只包含空格([color=#0000FF]不管有多少个空格),也删除该行[/color] 

Answer 2

 Lentemp = Len(Trim(.Lines(i, 1))) '判断是否为空行
红字那边就可以省了

Answer 3

应该是用
result=replace(.Lines(i, 1)," ","") ?