How do I extract a 5 digit zip code from a column that may have a random number of text?

Assuming that your data is in column A and that the word "ZIP" is somewhere in that column, try the following macro:

Sub FindZip()
    Application.ScreenUpdating = False
    Dim foundZip As Range
    Dim SplitZip As Variant
    Set foundZip = Range("A:A").Find("ZIP", LookIn:=xlValues, lookat:=xlPart)
    If Not foundZip Is Nothing Then
        SplitZip = Split(foundZip, ":")
        MsgBox SplitZip(1)
    End If
    Application.ScreenUpdating = True
End Sub